home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
formularmaker 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
79 lines
1 clr:printchr$(142);:ifa=1then4
2 ifpeek(828)=8then4
3 a=1:load"fiz+",8,1
4 gosub40:open4,4,15:close4:ifstthenprint"[147]bitte drucker einschalten!"
5 open4,4,15:close4:ifstthen5
6 open4,4:poke53280,6:poke53281,6:print"[158]":dimcm$(40):cmd4,;:printchr$(27);:print#4,chr$(49)
7 clr:s$="[165] ":e$=" [167] ":c$="":cu$="[207]":cm$="[180]":cl$="[204]":print"[147]":a=1:dimcm$(40)
8 print"[147]** daten-eingabe **
9 [153]"name spalte #"a" (^= ende/_=neu)",:[153][199](13)
10 [161]i$:[139]i$[178]""[167]10
11 [139]i$[178]"on"[176]i$[178]"cmd"[176]i$[178]""[176]i$[178]""[176]i$[178]"save"[167]10
12 [139]i$[178]""[167]cm$(a)[178][200](cm$(a),[195](cm$(a))[171]1):[137]16
13 [139]i$[178]"_"[167]cm$(a)[178]"":[153]"load":[137]9
14 [139]i$[178][199](13)[167]17
15 cm$(a)[178]cm$(a)[170]i$
16 [153]i$;:[137]10
17 [139]cm$(a)[178]"^"[167]24
18 [153]"load** darstellung **":[139]a[177]1[167]20
19 c$[178]s$[170]cm$(a)[170]e$:[137]21
20 c$[178]c$[170]cm$(a)[170]e$
21 [153]"";c$:ln[178]80[171][195](c$):[139](ln[171]3)[177][171]1[167][153]"";ln[171]3;:[153]"zeichen uebrig"
22 [139]ln[179]0[167][153]"load zu lang !":t[178]1:[129]t[178]t[164]1200:[130]:[137]7
23 a[178]a[170]1:[137]9
24 t[178]2:[129]t[178]t[164]([195](c$)[171]1):[139][202](c$,t,1)[178]"then"[167]cu$[178]cu$[170]"(NULL)":cl$[178]cl$[170]"sqr":cm$[178]cm$[170]"then":[137]26
25 cu$[178]cu$[170]"usr":cl$[178]cl$[170]"to":cm$[178]cm$[170]"
26 next:print"[147]o.k.?":print"";c$
27 gett$:ift$<>"j"andt$<>"n"then27
28 ift$="n"thenclr:goto7
29 print"[147]papier einstellen und taste druecken !"
30 gett$:ift$=""then30
31 open4,4:cmd4,;:printchr$(27);:print#4,chr$(18):cmd4,;:print#4,cu$chr$(8)chr$(13)chr$(15);:cmd4,;
32 print#4,c$chr$(8)chr$(13)chr$(15);:cmd4,;:print#4,cl$chr$(8)chr$(13)chr$(15);
33 print"[147]zeilenlaenge = 3 druckzeilen. soll das"
34 print"geaendert werden?
35 [161]t$:[139]t$[178]""[167]35
36 [139]t$[178]"j"[167][133]"loadneue laenge ";l2:[137]38
37 l2[178]3
38 l1[178]90[173]l2:l2[178]l2[171]1:t[178]1:[129]t[178]t[164]l1:tt[178]1:[129]tt[178]tt[164]l2:[157]4,;:[152]4,cm$[199](8)[199](13)[199](15);:[130]
39 [157]4,;:[152]4,cl$[199](8)[199](13)[199](15);:[130]:[138]
40 aa$[178]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
41 ab$="[180] form maker by erick parsons [167]
42 ac$[178]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr
43 ad$="[165] [170] [170] [170] [170] [167]
44 ae$[178]"(NULL)andandandandandandandandandandandandandsqrandandandandandandandandsqrandandsqrandandandandandsqrandandandandandsqr":[153]"sysload";:[153]aa$:[153]ab$:[153]ac$:t[178]1
45 [129]t[178]t[164]8:[153]ad$:[153]ae$:[130]:[160]4:[153]" anleitung ? j/n
46 gett$:ift$=""then46
47 ift$="j"thengosub49
48 sys(828):return
49 print"[147]"chr$(14)" [193][206][204][197][201][212][213][206][199]"
50 print"[205]it diesem [208]rogramm koennen [198]ormulare"
51 print"erstellt werden, wie es das [205]uster im"
52 print"[212]itelbild zeigt. [196]u kannst bis zu 25 "
53 print"waagrechte [211]paltenbezeichnungen einge-"
54 print"ben, wobei mindestens 1, hoechstens 26"
55 print"[218]eichen verwendet werden koennen."
56 print"[196]ie senkrechten [211]palten koennen in der"
57 print"[193]nzahl der [196]ruckzeilen eingestellt":print"werden. [198]ormatierung erfolg";
58 print"t automatisch!":print" ** [212][193][211][212][197] ! **
59 [161]t$:[139]t$[178]""[167]59
60 [153]"load":[153]"(NULL)um (NULL)tarten gibst str$u bei der"
61 [153]"str$atn(NULL)val(NULL)-valright$chr$atnpeekval die (NULL)amen der (NULL)palten"
62 [153]"von links nach rechts ein."
63 [153]"(NULL)val(NULL)(NULL)(NULL)(NULL) beendet die jeweilige valingabe."
64 [153]"str$eine valingabe wird angezeigt und str$u"
65 [153]"bist automatisch wieder bei valright$(NULL)chr$atnpeekval."
66 [153]"(NULL)o gibst str$u nacheinander alle (NULL)amen ein."
67 [153]"str$as (NULL)rogramm errechnet das ascormat des"
68 [153]"ascormulars nach jeder valingabe. str$u musst"
69 [153]"nicht so viele (NULL)palten eingeben, dass"
70 [153]"das ascormat ausgefuellt wird, jedoch"
71 [153]"sind nicht mehr valingaben moeglich, als"
72 [153]"die str$ruckbreite erlaubt. peekei einer"
73 [153]"ascehleingabe einer (NULL)paltenbezeichnung"
74 [153]"'_' druecken, und nochmals eingeben."
75 [153]"(NULL)um peekeenden der valingaben tippst str$u":[153]"anstatt eines (NULL)amens '^' und"
76 [153]"folgst dann den atnnweisungen.":[153]" ** (NULL)atn(NULL)(NULL)valclose! **
77 gett$:ift$=""then77
78 printchr$(142);:return:end